home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / DOUBLMPY.OBJ next >
Text File  |  1990-01-17  |  2KB  |  81 lines
  1. 0010    401000 Read A and B
  2. 0011    001000 Load A
  3. 0012    360006 Isolate high 3
  4. 0013    031501 Store as X
  5. 0014    001000 Load A
  6. 0015    370003 Isolate
  7. 0016    360006    middle 3
  8. 0017    031502 Store as Y
  9. 0018    001000 Load A
  10. 0019    370006 Isolate
  11. 0020    360006    low 3
  12. 0021    031503 Store as Z
  13. 0022    001001 Load B
  14. 0023    360006 Isolate high 3
  15. 0024    031504 Store as U
  16. 0025    001001 Load B
  17. 0026    370003 Isolate
  18. 0027    360006    middle 3
  19. 0028    031505 Store as V
  20. 0029    001001 Load B
  21. 0030    370006 Isolate
  22. 0031    360006    low 3
  23. 0032    031506 Store as W
  24. 0033    151501 Times X
  25. 0034    031507 X*W->T
  26. 0035    001505 Load V
  27. 0036    151502 Times Y
  28. 0037    011507 Plus X*W
  29. 0038    031507 X*W+V*Y->T
  30. 0039    001504 Load U
  31. 0040    151503 Times Z
  32. 0041    011507 Plus X*W+V*Y
  33. 0042    031507 X*W+V*Y+U*Z->T
  34. 0043    360003 Isolate high 3 or 4
  35. 0044    031002 Save in UPPER
  36. 0045    001507 Load X*W+V*Y+U*Z
  37. 0046    370006 Isolate
  38. 0047    360003    low 3
  39. 0048    031003 Save in LOWER
  40. 0049    001505 Load V
  41. 0050    151503 Times Z
  42. 0051    031507 V*Z->T
  43. 0052    001506 Load W
  44. 0053    151502 Times Y
  45. 0054    011507 Plus V*Z
  46. 0055    011003 Plus LOWER
  47. 0056    031003 V*Z+W*Y+???000->LOWER
  48. 0057    001506 Load W
  49. 0058    151503 Times Z
  50. 0059    031507 W*Z->T
  51. 0060    360003 Isolate high 3
  52. 0061    011003 Plus LOWER
  53. 0062    031003 Save at LOWER
  54. 0063    360006 Isolate carry
  55. 0064    031508 Save at CARRY
  56. 0065    001003 Load LOWER
  57. 0066    370003 Shift off carry
  58. 0067    031003 Save at LOWER
  59. 0068    001507 Load W*Z
  60. 0069    370006 Isolate
  61. 0070    360006    low 3
  62. 0071    011003 Plus LOWER
  63. 0072    031003 Save at LOWER
  64. 0073    001504 Load U
  65. 0074    151502 Times Y
  66. 0075    031507 U*Y->T
  67. 0076    001505 Load V
  68. 0077    151501 Times X
  69. 0078    011507 Plus U*Y
  70. 0079    011002 Plus UPPER
  71. 0080    011508 Plus CARRY
  72. 0081    031002 Save at UPPER
  73. 0082    001504 Load U
  74. 0083    151501 Times X
  75. 0084    370003 Position U*X
  76. 0085    011002 Plus UPPER
  77. 0086    031002 Save at UPPER
  78. 0087    411000 Print A,B,Product
  79. 0088    500000 Halt
  80. 9999    000010
  81.